#!/usr/bin/perl -w
use strict;
use List::MoreUtils qw( pairwise );
use Data::Dumper;


my @a = qw( 0.0.0.0/0 1.2.3.4/24 );
my @b = qw( 192.168.1.0/24 192.168.2.0/24 3.4.5.6/34);
my @c = qw( 22 );

#foreach my $x (@a) {
#	print "a $x:";
#	foreach my $y (@b) {
#		print "b $y:";
#print "\n";
#	}
#}

my @array1=qw/one two three/;
my @array2=(1, 2, 3,4);
my @combined;
my $counter=0;
map {push @combined,"$_:$array1[$counter++]"} @array2;
print Dumper @combined;

#my @combined = map { "$array1[$_]:$array2[$_]" } 0..$#array1;
